From: Glenn Morris <rgm@gnu.org>
Date: Fri, 6 Jan 2012 07:37:01 +0000 (-0800)
Subject: Trivial bytecomp.el fix for file-local buffer-read-only.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~324^2~1250
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=8cc312010335ed0a19da0ac48f6f9c9d484b6938;p=emacs.git

Trivial bytecomp.el fix for file-local buffer-read-only.

* lisp/emacs-lisp/bytecomp.el (byte-compile-file): Do not propagate a
file local setting of buffer-read-only to the input buffer.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index eda072fe93a..53b72cb9a34 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2012-01-06  Glenn Morris  <rgm@gnu.org>
 
+	* emacs-lisp/bytecomp.el (byte-compile-file): Do not propagate a file
+	local setting of buffer-read-only to the input buffer.  (Bug#10419)
+
 	* calendar/calendar.el (calendar-mode):
 	Locally set scroll-margin to 0.  (Bug#10379)
 
diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el
index 749200db925..80e380f07ea 100644
--- a/lisp/emacs-lisp/bytecomp.el
+++ b/lisp/emacs-lisp/bytecomp.el
@@ -1745,7 +1745,9 @@ The value is non-nil if there were no errors, nil if errors."
              (enable-local-eval nil))
 	;; Arg of t means don't alter enable-local-variables.
         (normal-mode t)
-        (setq filename buffer-file-name))
+        ;; There may be a file local variable setting (bug#10419).
+        (setq buffer-read-only nil
+              filename buffer-file-name))
       ;; Set the default directory, in case an eval-when-compile uses it.
       (setq default-directory (file-name-directory filename)))
     ;; Check if the file's local variables explicitly specify not to